﻿Public Class Monstruo
    Inherits Personaje

    'Propiedades
    Private idMonstruo As Integer
    Private idPersonaje As Integer
    Private numAtac As Integer
    Private descripcion As String
    Private expMuerte As Integer

    'Constructor
    Public Sub New(ByVal nombre As String, _
                   ByVal alineamiento As Integer, _
                   ByVal nivel As Integer, _
                   ByVal descripciondura As Integer, _
                   ByVal aventura As Aventura, _
                   ByVal combates As ArrayList, _
                   ByVal caract As ArrayList, _
                   ByVal idmonstruo As Integer, _
                   ByVal idpj As Integer, _
                   ByVal numAtk As String, _
                   ByVal descripcion As String, _
                   ByVal expMuerte As Integer)
        MyBase.New(nombre, alineamiento, nivel, descripciondura, aventura, combates, caract)
        Me.idMonstruo = idmonstruo
        Me.idPersonaje = idpj
        Me.numAtac = numAtk
        Me.expMuerte = expMuerte
    End Sub

    'Metodos:

    '________SETTERS_________

    Public Sub setidMonstruo(ByVal idMonstruo As Integer)
        Me.idMonstruo = idMonstruo
    End Sub
    Public Sub setIdPersonaje(ByVal idpersonaje As Integer)
        Me.idPersonaje = idpersonaje
    End Sub
    Public Sub setnumAtac(ByVal numAtac As Integer)
        Me.numAtac = numAtac
    End Sub
    Public Sub setdescripcion(ByVal descripcion As String)
        Me.descripcion = descripcion
    End Sub
    Public Sub setexpMuerte(ByVal expMuerte As Integer)
        Me.expMuerte = expMuerte
    End Sub

    '________GETTERS_________
    Public Function getidMonstruo() As Integer
        Return Me.idMonstruo
    End Function
    Public Function getIdPersonaje() As Integer
        Return Me.idPersonaje
    End Function
    Public Function getnumAtac() As Integer
        Return Me.numAtac
    End Function
    Public Function getdescripcion() As String
        Return Me.descripcion
    End Function
    Public Function getexpMuerte() As Integer
        Return Me.expMuerte
    End Function
End Class
